(DEFPROP STRGENFNS
 (STRGENFNS STARTUP)
VALUE)

(DEFPROP STARTUP
 (LAMBDA NIL
  (PROGN (TURNOFF (FIXFN (QUOTE MOLECULES) (QUOTE L) (QUOTE N) (QUOTE (NIL))))
	 (TURNON
	  (LIST	(FIXFN (QUOTE ATTACHFVS) (QUOTE L) 2. (QUOTE (NIL)))
		(FIXFN (QUOTE ATTACHBIVS&LOOPS) (QUOTE L) 3. (QUOTE (NIL)))
		(FIXFN (QUOTE ATTACHBIVALENTS) (QUOTE L) 2. (QUOTE (NIL)))
		(FIXFN (QUOTE STRUCTURESWITHATOMS) (QUOTE L) 2. (QUOTE (NIL)))
		(FIXFN (QUOTE PERMRADS) (QUOTE L) 1. (QUOTE ((STRUCINCL CLRADS))))
		(FIXFN (QUOTE GENMOL) (QUOTE L) (QUOTE N) (QUOTE ((STRUCINCL CL))))))
	 (MAPCAR (FUNCTION (LAMBDA (X) (TURNON (FIXFN X (QUOTE L) (QUOTE N) (LIST NIL)))))
		 (QUOTE (RINGS RINGSKELETONS NOFV-RINGS CATALOG)))))
EXPR)